home *** CD-ROM | disk | FTP | other *** search
/ MusicScapes Professional / MusicScapes Professional (Wayzata Technology)(1381)(1995).bin / elements / clarinet / 00015_Script_15 < prev    next >
Text File  |  1994-11-22  |  575b  |  17 lines
  1. on exitFrame
  2.    global lastSoundLevel
  3.   global oldSoundLevel
  4.   installMenu 16
  5.   put the soundLevel into lastSoundLevel
  6.   set lastSoundLevel1 to lastSoundLevel + 1
  7.   set the checkMark of menuItem lastSoundLevel1 of menu "Volume" to TRUE
  8.   --global lastSoundLevel
  9.   --global oldSoundLevel
  10.   --installMenu 16
  11.   --put the soundLevel into lastSoundLevel
  12.   --set lastSoundLevel1 to lastSoundLevel + 1
  13.   --set the checkMark of menuItem lastSoundLevel1 of menu "Volume" to TRUE
  14.   --global oldsound
  15.   -- put the soundLevel into oldsound
  16.   --set the soundlevel to 7
  17. end